home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor1 / mrs.src < prev    next >
Text File  |  1991-02-21  |  679b  |  17 lines
  1. %%HP:T(3)F(.);
  2. @ MRS, a tiny Morse Code program by Joe Horn
  3. \<< RCLF SWAP BIN 1 OVER SIZE @ save user's binary mode
  4.   FOR n DUP n DUP SUB
  5.     "-ETIANMSURWDKGOHVF-L-PJBXCYZQ" SWAP POS R\->B \->STR @ position -> binary
  6.     DUP SIZE 1 - 4 SWAP SUB 1 OVER SIZE @ convert binary number to morse code
  7.     FOR b DUP b DUP SUB @ loop through morse code string
  8.       CASE DUP "1" SAME @ dah?
  9.         THEN 880 .3 BEEP @ dah
  10.         END DUP "0" SAME @ dit?
  11.         THEN 880 .1 BEEP @ dit
  12.         END .4 WAIT @ pause between dits & dahs
  13.       END DROP
  14.     NEXT DROP .2 WAIT @ pause between letters (added to previous pause)
  15.   NEXT DROP STOF @ restore user's binary mode
  16. \>>
  17.